#########################################################################
# Time-stamp: <2004-06-16 18:06:58 patrick>
#
# GO annotation dynamic data routines
#########################################################################
package EP::EPC::Interface::GO_Annotation;

use strict;

use EP::EPC::Interface;

use EP::Config;

use XML::LibXSLT;

sub newDD {
  my $proto = shift;
  my $ep_query_doc = shift;
  my $query = shift;
  my $DDD = shift;

  my $class = ref($proto) || $proto;
  my $self  = {};
  bless $self, $class;
  $self->initialize($ep_query_doc, $query, $DDD);
  return $self;
}

sub initialize {
  my $self = shift;
  $self->{epc_query} = shift;
  $self->{query}     = shift;
  $self->{DDD}       = shift;

  return;
}
sub list_species {
    my $self = shift;

    my $organism = &EP::Common::DB::get_dynamic_data("species", 0);
    my $dl = &EP::EPC::Interface::DD::dynamic_list( $organism );
    
    return $dl->findnodes('/*');
}

1;
